Let's Learn About Machines/Let's Learn About Machines.iso/mac/macfiles/NW/Shared.Dxr/01109.ls

Text File | 1997-09-18 | 523 b | 20 lines

on exitFrame
  global tagOrder, foundL1
  set x to 0
  set locHtemp to -20
  repeat with d = 1 to the number of chars in tagOrder
    set the castNum of sprite (33 + x) to the number of cast char d of tagOrder
    if foundL1 then
      set the visible of sprite 31 to 0
    end if
    updateStage()
    set locHtemp to locHtemp + 43
    set the locH of sprite (33 + x) to locHtemp
    set the locV of sprite (33 + x) to 432
    set x to x + 1
  end repeat
  repeat with f = 33 to 44
    puppetSprite(f, 1)
  end repeat
end